home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / FIXLIB2.ZIP;1 / LIBFIX2.ZIP / KSGINC.H < prev    next >
Encoding:
C/C++ Source or Header  |  1993-03-16  |  1.1 KB  |  37 lines
  1. #include "common.ch"
  2. #include "inkey.ch"
  3. #include "fileio.ch"
  4. #include "box.ch"
  5.  
  6. #translate KsgRead()                          =>    ;
  7.     ( SETCURSOR( 3 ), READMODAL( getlist ),         ;
  8.       getlist := {}, SETCURSOR( 0 ),                ;
  9.       !( LASTKEY() = 27 )                           )
  10.  
  11. #xtranslate FILEFOUND( <foo> ) => ;
  12.             IF( !FILE( <foo> ), ;
  13.                 EVAL( { || ALERT( <foo> + " not found" ), .F. } ), ;
  14.                 .T. ;
  15.             )
  16.  
  17. #xcommand if <true> then <action>  => if <true> ; <action> ; end
  18. #xcommand FWriteLine( <h>, <str> ) => FWrite( <h>, <str> + CHR(13)+CHR(10) )
  19.  
  20. #define USE_CLOCK
  21. #define ST_LEN       4
  22. #define ST_ROW       1
  23. #define ST_COL       2
  24. #define ST_COLOR     3
  25. #define ST_CURRENT   4
  26. #define F_BOF        0
  27. #define ALTC         302
  28. #define MR           MAXROW()
  29. #define MC           MAXCOL()
  30. #define RPT_FILE     "CONVERT.RPT"
  31. #define CmdSpecs     "?~/?~-?~H~/H~-H~HELP~/HELP~-HELP"
  32. #define ERRORMSG1    IF( EMPTY( cFileIn ), "ABORTED", "FILE NOT FOUND!" )
  33. #define xBLOCK       { | a,b,c | Error_MSG( a,b,c) }
  34.  
  35.  
  36.  
  37.